Analysis date: 2023-09-18
CRC_Xenografts_Batch2_DataProcessing Script
load("../Data/Cache/Xenografts_Batch2_DataProcessing.RData")
sample_annotation_df <- tibble( sample = rownames(
pY_mat_Set1_normtomedian
) ) %>%
separate(col = sample, sep = "_",
into = c("log2FC", "xenograft", "treatment",
"timepoint", "replicate", "set" ), remove = F) %>%
column_to_rownames("sample") %>% select(-log2FC)
t(pY_mat_Set1_normtomedian) %>%
plot_centered_heatmaply_around_nochange(
labCol = sub("log2FC_", "", rownames(pY_mat_Set1_normtomedian)),
col_side_colors = sample_annotation_df)
sample_annotation_df <- tibble( sample = rownames(
pST_mat_Set1_normtomedian
) ) %>%
separate(col = sample, sep = "_",
into = c("log2FC", "xenograft", "treatment",
"timepoint", "replicate", "set" ), remove = F) %>%
column_to_rownames("sample") %>% select(-log2FC)
t(pST_mat_Set1_normtomedian) %>%
plot_centered_heatmaply_around_nochange(
labCol = sub("log2FC_", "", rownames(
pST_mat_Set1_normtomedian
)),
col_side_colors = sample_annotation_df)